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I. Introduction 

Functional Characteristics are a level of description too 
detailed for a User's Manual, yet too abstract for detailed documentation. 
This information describes the external behavior of major subsystems 
or the total system. Some descriptions are simply summaries of 
information available in scattered locations. 

Codes and capabilities are likely to change with system 
modification and extension. This material is provided as a detailed 
reference source for personnel familiar with the FACES system. 
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11. DETAaCl) DESCRIPTION OP PACES ACCEPTABLE FORTRAN 

RACES is designed to operate with a compiler. The compiler 
is responsible for policing acceptable constructions which can be 
executed; FACES is responsible for analyzing syntax which is compiler 
acceptable. 

In defining the syntax for FACES, maximum latitude is given 
to form. Where possible, features are a composite of nonccnflict- 
ing capabilities from several compilers. The presence of a parti- 
cular construction implies the source code can be compiled. 

The following description is intended to define syntactic 
constructions recognized by FACES; this is not a description of 
FORTRAN. A FORTRAN user's guide should be consulted for an ex- 
plai nation of code operation. 

Character Set 

Blank character (significant only in Hollerith literal 
strings) 

A-Z Alphabetic characters 

0-9 Decimal numeric characters 




Special Characters 


/ 

« equal sign 

+ 

plus sign 

- minus sign 

* 

asterisk 

/ slash 

f 

comma 

( left parenthesis 

) 

right parenthesis 

. period 

$ 

dollar sign 


' apostrophe (single quote) 

" quotation mark (double quote) 


Card Format 

Stanfiard FORTRAN format with numeric statement labels in 
columns 1 through 5, continuation in column 6, and source statement 
text in columns 7 through 72. Columns’ 73 through 80 may contain 
optional card identifications. 

Statement labels . 

Statement labels are composed of from 1 to 5 unsigned numeric 
characters without leading zeroes. 

Continuation cards . 

Statements may be continued on the next card by placing any 
character other than blank or zero in column 6. 

Comment Cards 

Cards containing any character other than blank or a numeric 
character In column 1 are considered conment cards. Blank cards 
are considered comment cards. 


Source Code Components 


S.ymbo1 i c Names . Symbolic names are from 1 to 8 alphanumeric 
characters, the first of which must be alphabetic. 

Constants . 

Integer Constan ts. A string of decimal digits not 
formally constrained in length, 

2. Real Constants . Real constants have one of the 
following forms: 

i^.i_ < .2 i. basic real constants 

^basic real constant^ E j_ 

lEi 

1 

where: X ^^d ^ are integer constants. 

The basic real constant and exponent may be 
optionally signed. 

Double Pre cision Koal Constants . Double precision 
constants have 4;lie form, 

^basic real constant^ D i 

where: the basic real constant and integer exponent 
may be optionally signed. 

4. Complex Constants . The form of complex constants is 

{ ci,c2 ) 

where: cl^ and c^ are either real or double precision 
constants. Mixture of precision Is permitted 
cl^ and/or c2 may be signed. 

5. Logical Constants . Logical constants may be one of 
the following forms, 

.TRUE. .FALSE. .T. .F. 
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» ♦ 


IL4 

Litoral Constants . Literal constants are character 
data of the form, 

w H ^char st*'ing> 

' Cchar string^' 

^har string>" 

where: ^har string> is a series of adjacent card char- 
acters including blanks. 

w is an unsigned integer constant indicating the 
length of the character string. 

If two adjacent delimiting markers (i.e. " or “") 
appear they are.' interpreted as a 
single mark, of text. 

7. Nondecimal Based C onstants . Machine dependent constant 
forms for radix other than 10. 

w Z <hex constant string'^ 

0 <bctal constant string^ (more than 7 chars) 
foetal constant string> B 
Z ^ex constant string^ (in DATA list only) 

Operators . 

1* Arithmetic operators . The following arithmetic operators 
are permitted: 

2* Logical operators . The following logical operators are 
permitted: 

.NOT. .N. .AND. .A. .OR. .0. 

V 
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^1'*^ foUowino relational operators 

are rccorinizod: 

.EQ. .NE. .GT. .GE. ,LE. .LT. 

Pr ogram variabler3 . 

Variable names are limited to 8 or'' less alphanumeric charac- 
ters » the first of which must be alphabetic. 

Array dimensions are unlimited. Dimension specification must 
be declared by either an unsigned constant or unsigned variable. 

Array reference subscripts may be any arithmetic expression. 

Data T ypes . The follov/ing types ere processed by FACES: 

INTEGER 

LOGICAL 

REAL 

DOUBLE PRECISION 
COMPLEX 

HOLLERITH (only as a constant) 

NEUTRAL (untyped routine names, statement labels, and COMMON 
block labels) 

Expressions . Expressions are processed by content only. Expression 
syntax is not examined. Operator precedence is ignored. Any valid 
expression acceptable to a FORTRAN compiler will be accepted by FACES 
if components of the expression contain acceptable operators and operands. 
1. Simple Arithmetic Expressions . 

Simple arithmetic expressions contain the following components: 
Operands: Constants, scalar variables, array references 
v/lthoiit subscript lists. 




Operators: Arithmetic operators, and logical operators. 
Other: Organizing parentheses. 

2. Arithmetic Expressions : Arithmetic expressions contain the 
the following components: 

Operands: Constants, scalar variables, arrays with unres- 
tricted subscripts, function references, and 
statement function references. 

Operators: Arithmetic operators and logical operators. 
Other; Organizing parentheses. 

3. Logical Expressions ; Logical expressions contain the 
following components: 

Operands: Constants, scalar variables, arrays with unres- 
tricted subscripts, function references, and 
statement function references. 

Operators: Arithmetic operators, logical operators, and 
relational operators. 

Expression type is evaluated only for expressions used as 
array subscript references, or actual parameters to functions or 
subroutines. The type is determined by the highest level type of 
any operand in the expression; 

COMPLEX 

DOUBLE PRECISION 

REAL 

INTEGER 

LOGICAL / HOLLERITH (extended type) 


II. 7 


Nesting of function and array references within function 
actual parameters, array subscripts, and subroutine actual parameters 
Is currently limited to 5 levels. 

SOURCE CODE STATEMENTS 

Control Statements . Branch targets, t, in control statements 
may be either statement labels or variables set by ASSIGN 
statements. A branch target list is a series of branch 
targets separated by commas, 

GO TO Statements . 

GO TO t (unconditional GO TO) 

GO TO (4»ranch target list^), v 
ASSIGN t TO V 

GO TO V, (^branch target list^) (ASSIGNED GO TO) 
where t is a branch target 

is and unsubscripted variable 
t is a statement label 

The branch target list of the ASSIGNED GO TO is optional 
I£ Statements . 

IF(4irith expr» ;U, t3 
IF(C>ogical expr)) 

IF(<log1cal expr>) statement 
where and are branch targets 

^arith expr^ is an arithmetic expression 
^logical expr^ is a logical expression. 


i 
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DO jR^DO control llst^ 
where is a statement label, 

^DO control list^ is the form, 

V = nil H2 , n3 

with ^ and unsubscripted variable. 

nl, n2, ni, the optionally signed 00 control 
parameters. 

nl, n2, n3, may be either constants or unsub 
scripted variables, 
n3 may be omitted, 

CONTINUE 

I dentified contro l state n^ents. 

The following control statements may optionally con- 
tain an identification, ji, indicated by an unsigned 
constant or syiubol ic name. 

PAUSE n 
STOP n 
END n 

Assignment Statements . Assignment statements have the usual 
form, 

;v = ^rith expr^ 

where x is a subscripted or suberipted variable. 

^arith expr^ is an arithmetic expression, 

Input/Output Statements. T/0 statements are composed of 
an I/O action, I/O control specification, and optional * 

I/O variable list. 
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I/O control spoclflcations are of the form, 

( u'r, f. ERR ^ END « W ) 
where u. is a mandatory unit specification expressed as a 
constant or unsubscripted variable, 
is an optional record specification restricted to 
a simple constant or unsubscripted variable. 

^ is an optional FORMAT specification expressed as 
a statemerit label or variable name. 
bl and ^ are branch targets. 

t 

I/O lists are comma separated lists of I/O elements, 

I/O elements are; 

1. Simple operands (constants or variables) 

2. I/O elements separated by commas enclosed in parentheses. 

3. Implied DO loops of the form 

(<t/0 element list]^, ^0 control lis^} 

I/O Statement Forms . 

WRITE ^I/O Control 5pec><I/0 list> 

READ ^I/O control spec'^ ^I/O list^ 

PRINT f. <1/0 list) 

PUNCH f, <1/0 '.ist> 
where ^ is a fomat specification 
the I/O list is optional 

END FILE u 
REWIND u 


BACKSPACE 


u 
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where Is an I/O unit specification 

FORMAT only the statement label of a FORMAT Is 
processed. 

Variable Declaration Sta lc monts . Variable declarations define 
the data type, structure, and storage allocation of program 
variables. 

Type specifications may be one of the following 

INTEGER 

REAL 

DOUBuE PRECISION 

COMPLEX 

LOGICAL 

Unless redefined by an IMPLICIT statement, the leading 
character of the variable establishes ANSI standard type, 

A through H and 0 through Z - type REAL 
I through N - type INTEGER 

A variable declaration list is a comma separated list 
df variables which may be optionally subscripted. Subscript 

specification implies difinition of array dimensions, 

A variable list is a comma separated list of subscripted 

or unsubscripted variable which reference program variables 
or elements of arrays, 

IMPLICIT ^ype spec^( ^letter list^), .... , 

^type spec) (^letter list^) 


I 


II. 11 


where \type spec^ 1s a defined type specification, 

^letter lls'^ls a conima separated form with elements of: 

1. Single letter 

2. Range of letter specified as L1-L2. 

L2 must be alphabetically ahead of LI. 

DIMENSION <yar declr list} 

^type spe^<^var declr list^ 

EQUIVALENCE «var list>),(<var list)), ,«yar list)) 
DATA <(var list)/<(<Jata spec list)/. ... , 

<Jvar list)/<data spec list)/ 

where ^data spec list) is a comma separated list with elements cf: 

1, Optionally signed simple constants 

2. p * c where p is an unsigned repeat specifi- 
cation and c is an optionally signed constant. 

COMMON ^block spec) <^var decl r list) .... 

^block spec) <var declr list) 
where ^block spec) is the form / symbolic name / 

If the first <^block spec) is absent, the COMMON Block 
is blank COMMON. 

A missing symbolic name explicitly references blank 
COMMON (e.j. / / ). 


\ 
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DuiTimy parameter lists are comma separated lists of 
unsubscripted variables enclosed In parentheses. 

Actual parameter lists are comma separated lists of 
arithmetic expressions, the simplest form of which is a 
variable or constant, enclosed in parentheses. 

PROGRAM name 

where name is the symbolic" name of the main program. 
Optional text following name is not processed. 
<^type spec^ FUNCTION mmip <(dummy parm list^ 
where ^type spec^ is optional 
SUBROUTINE name <^dumiiv/ param lis^ 

where <^dummy param lis^ is optional 
BLOCK DATA 

ENTRY name ^duinmy param list^ 

wi»ere name is the s^mibolic name of a secondary entry 
point. 

The type for nrn^ is derived independently of 
the primary entry. 

(^durnrny param lis^is optional. 
sfname <^dumniy pat'am lis^ = ^arith expr^ 

where sfname is the symbolic name of a statement 

function distinct from any declared array. 
EXTERNAL namel . name2 , . . . , nameN 

where namel .Is the symbolic name of an external func- 
tion or subroutine. 
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RETURN i 

where j, is an optional constant or unsubscripted 
variable return specification. 

Function reference 

name ^ctual param list^ 

where name is the syinbolic name of an external func- 
tion or function entry point, 

CALL name ^ctual param list^ 

where name is the symbolic name; of a subroutine, 
factual param list^ is optioni ,. 

I 

Statement Orde r Requirements . 

Minimum order requirements are implemented In FACES to pro- 
vide maximum flexibility to FOHTHAN dialects consistent with single 
pass operation. 

1. All modules must begin v.ith a header card identifying 
the module. Header cards are PROGRAM, BLOCK DATA, SUB- 
ROUTINE, and FUNCTION. 

2 . All modules must terminate with an END card. 

3. References to arrays must appear after declaration of the 
array In a DIMENSION, TYPE, or COMMON statement to avoid 
ambiguity with statement function definitions and function 
references. 

Other Requirements . 

Since modules are Identified and replaced by namei only one 


BLOCK DATA module is permitted in the software system* 
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Transition Recording C odes for TRANS 


Parameter 

Value 

Type of Transfer 

PPCode 

Values Recorded 
Predecessor 

1 

'Branch to label 

1 

Node number of 
branch statement 

2 

DO LOOP 

2 

Symbol table 
position of DO 
Ubel 

3 

RETURN ' 

0 

Node nimber 
of RETURN 

4 

Logical IF statement 

0 

Node number of 
IF statement 


- 

0 

Node number of 
IF statement 

5 

External procedure 
reference 

0 

Node number of 
calling statement 

6 

END 

0 

Node number of 
END statement 

7 

Program termination 

0 

Node number of 

terminating 

statement 

8 

Primary entry point 

0 

Special code for 
primary entry 
(70000) 

9 

Secondary entry point 

0 

Special code for 
secondary entry 
(80000) 

10 

Branch through variable 

0 

Node number of 
branch statement 

n 

Not used 



12 

Statenent function 
reference 

0 

Node number of 
statement calling 
statement function 


Successor 

Symbol table 
position of 
branch label 

Mode number of 
DO statement 


Special Return 
code (20000) 

Node number of 
statement after 
IF 

Node number of 
second state- 
ment after Ur 

Special Call 
Code (10000) 

Special END 
code (30000) 

Special transi- 
tion code (40000) 


Node number of 
module header 
card 

Node number of 
ENTRY statement 


Special code for 
variable branch 
(60000) 


Special code for 
statement function 
reference (50C00) 
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fL^MUAN FUnM «* N0 COOK SOW ( J '/ U-!V 

oiFtcTOFv coons 

MUliULE TYPr : 

0-UNOhr 1-PKOG 2- Sl.n 3-FUNC 4-HLKOATA 

5-SnCNO CNTRY C.-*itCKC FUN FNTHY 

5YIV00L cooes 

CHA;^AC Ti 5R I ST ICS 
TYPe COOKS - 


0-UNDlF l-FP 

2-CF 3-CVPX 

4-LOG 5-NTRL 

6-CHAP 7-INTG 

CLASS COOLS “ 





O-lNDCf l- 

SUP 2-5TFUN 

a-ARRAV 4 

-F UN 

b-LA8EL 

O'-SCALAR 7~ 

CCMLAO O-CLNS 

9-ENTRY 10 

- 

1 1- 

12-PRCG 13- 

TF MP 14- 

lE-STF r;UM 10 

-LXTPPCC 

USh TA;^LE COOES 





use COOLS 





0“ empty 

l- ASCN nVAF 

2- ASGN IVAW 

“a.. 

l/C OVAR 

4- I/O invar 

5- 00 INCX VAR 

6- DC START 

7- 

DC ENG 

H- DO INC 

9- LAP D(“F 

10- XFR TO LA.5 

l 1“ 

COW ENTRY 

12- OATA ENTRY 

13- A^RY OI-CLR 

14- TYP ENTRY 

15- 

SUH5CR IPT 

16- FUN dummy 

17- SLH DUMMY 

18- FUN ACTUAL 

I 9- 

SUP ACTUL 

20- CCNO-IP VAR 

21- txT prnc 

22- ASSIGN VA9 

23- 

HR THRU VAR 

24- cGcra iNDx 

?b~ DO LAOTL 

20- l/C UNIT 

27- 

rCRMAT REF 

2B- MTPL .9ETRN 

29-RFF LAO L LC 

3C- PGN list 

31- 

ENG LIST 

32- RGN SHE 

3 3- LNO SSH-. 

34- SHE CVAR 

35- 

SPc IVAR 

30- EQUIV LNTY 

37-tXTRN ENIY 

38- 

39- 


4 0- OFCLAPi.I 

41- DATA VAL 

42- REPEAT 

4 3- 

ID INDEX 

44- 

4 5- 

46-ST fun CALL 

4 7- 

l/C RFCRD 

MUOt TAP.LF CCDF.S 





eiateylnt TYPK 

S - 




c - u N 0 fc r 

l- 

2- 

3- 

FORMAT 

4 - P r'! 1 N T 

S- IRf-LlCIT 

6- NAMFLIST 

7- 

FJNCUDt; 

a- DC coot- 

9- PUNCH 

10- IF 

l 1- 

COPLCX 

12- EXTERN 'VL 

13- l^LCCX DATA 

14- END 

15- 

READ 

1 6- 

1 7- 

18- 

19- 


20- ENCFILE 

21- 

22- 

23Y 

PEAL 

24- EACNSPACr 

25- 

26- LOGICAL 

27- 

FUNCT ION 

2H- OIvFN:ilON 

29- 

1C- 5U9W0UTIN'- 

31- 

DA T A 

32- PRCG^AV 

33- COU’L PF-C 

34- CALL 

35- 

I NTFGFP 

36- CCM.VCN 

37- 

38- ASSIGN 

39- 

WRITE 

40- FOUIVAL 

41- STUF’ 

42- KE'J^INO 

4 3- 


44- CONTINUE 

4b- GCTC 

46 - 

47- 


48- entry 

50- PAUSE 

51- RETURN 

52“ 

ASCNMT STMT 

53- DC STMT 

54- ST f-UN 




99- UNRECaGNl2En 





.successor! tmsue 
successQP codf:s 

0 - UNCbF I - STATEMENT NUMRER 

lOCOO “ EXT REF 20000 - KCTUPN 3COOO - fcNC STMT 

40000 - PPiOG HALT 50000 - STFUN REF 60000 - HR THRU VAR 

9C00C - UNCEF LAEEL 

PHtOtCCSSOR TAELE 

PHCOECESSCH CURES 

0 - UNDEF 1 - 9999 STATEMENT NUMBER 

70COO-PHINE ENTRY HCCOO-SECND ENTRY 
9OO00-UNDEF LABEL 


0W ^ 4L PAGE IS 
WOB <jnAui^ 
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Sunmiary of System Anomalies 
Detected FORI RA N Front End 

FORTRAN Front End anomalies are detected processing conditions 
which indicate unusual circumstances. Anomalies should not appear if 
the FORTRAN text is well formed and tables do not overflow. Unusual 
syntax or ta.ble overflow may cause anomalies to appear although the 
error should be controlled. 

Anomaliesv are reported in the form, 

***** FFE SYSTEM ANOMALY § DETECTED BY RRRRRRRR IN 
NNNNNNNN CARD CCC VALUES ^ III AAAAAAAA 

where, 

§ is an anomaly code indicating the type of situation 
which occurred, 

RRRRRRRR is the FFE rcutino vfhich detected the error, 

NNNNNNNN is the module being processed when the anomaly was 
detected, 

CCC is the (approximate) card number relative to the 
beginning of the jiiodule, 
in is the value found in question, and 
AAAAAAAA is the name of the data element. 


I 
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Table of FfE Anomaly Code 


Code Number 

Meaning 

1 

Bad parameter value passed 

2 

Bad table value detected 

3 

Bad table positioning detected 

4 

Unexpected sequence encountered 

5 

Probable lockup cleared 

6 

Unacceptable form found 

7 

Incapable of performing the requested function 

8 

Algorithm produced suspicious result 

9 

Processing table overflow 
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QUERIES 


FACES allows a user to request the search for certain pre-deter- 
niined unusual language constructions in the user's FORTRAN source code. 

Such a search is called a query. Ttie user also has some control over 
the format of the messages produced when such incongruous constructions 
are located, 

110 (ANSIST) - Search for ANSI Standards function names that are not 
being used as ANSI Standards functions names. A list of these 
names appears in Table 2, which v/as derived from the ANSI FORTRAN 
manual ANSI X3, 9-1966. All messages appear in the primary listing. 
Example: DIMENSION IFIX(IO) 

ABS = IFIX(MOD) {ABS and HOD are variables) 

120 (RESWRO) - Search for FORTRAN 'Reserved' words being used as names. 

A list of these words appears in Table 1. All messages appear 
in the primary listing. 

Example: DIMENSION IF(5, 5) 

DO = IF{4,5) (DO and IF are variables) 

130 (DATVAR) - Search for DATA statements not in BLOCK DATA which contain 

N 

COMMON Block variables. These DATA satsments are loader dependent. 
All messages appear in the primary listing. 
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ASSIGN 

DO 

GOTO 

READ 

CALL 

ENCODE 

IF 

REAL 

COMMON 

END 

IMPLICIT 

RETURN 

COMPLEX 

ENTRY 

LOGICAL 

REWIND 

CONTINUE 

EXIT 

PAUSE 

STOP 

DATA 

FORMAT 

PRINT 

WRITE* 

DECODE 

FUNCTION 

PUNCH 



"Reserved” FORTRAN Uords 
Table 1 

> ' 


ABS 

ATANZi 

DATAN 

DSIN 

MAXI 

AINT 

CABS 

DATAN2 

DSQRT 

MI NO 

ALOG 

CCOS 

OBLE 

EXP 

MINI 

ALOGIO 

CEXP 

DCOS 

FLOAT 

MOD 

AIMAG 

CLOG 

OEXP 

lABS 

REAL 

AMAXO 

CMPLX 

DIM 

IDIM 

SNGL 

AMAXl 

CONJG 

DLOG 

lOINT 

SIGN 

AMINO 

COS 

DLOGIO 

IFIX 

SIN 

AMINl 

CSIN 

DMAXl 

f 

INT 

SQRT 

AMOD 

CSQRT 

DMOD 

ISIGN 

TANH 

ATAN 

DABS 

DSIGN 

MAXO 



Standard FORTRAN Function Names 
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Table Z 


If the COMMON Block variable is EQUIVALENCED to a variable 
which appears in a DATA sialement, then both variable names 
appear in the message. 

Example: SUBROUTINE SUB 

COMfiON X,Y,Z 
EQUIVALENCE (Y*Q) 

DATA X.Q/7.3, 9.5/ (Set values of X and Yj 

140 (FUNPAR) - Search for function dummy parameters assigned values 
within the function itself. These represent dangerous side 
effects. All messages appear in the primary listing. 

If a dummy parameter i:; EQUIVALENCED to a local variable 
which is assigned a value, then both variable names appear in 
the message. 

Program boundaries are not crossed. The use of a dummy 
parameter in art actual pciraineter list is ignored for this 
query. 

Example: FUNCTION FUN(X.Y) 

EQUIVALENCE (Y.Q) 

X s x+3 value changed) 

Q - X (Y value changed) 

150 (MULBRA) - Search for multiple branching statements which do not 

branch to the statement immediately following. These are highly 
questionable logical constructions. All messages appear In the 
primary listing. 
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Example: IF (K) 100, 200, 300 

50 C « FUN(I) 

160 (REDLOP) - Search for the redefinition of DO Loop control variables 
within the loop itself. Such rediflnltions are Illegal. All 
messages appear in the primary listing. ^ 

If the control variable is EQUIVALENCED to some other 
variable which Is assigned a value within the loop, both variab' 
names appear in the message. 

Program boundaries are not crossed. If a DO Loop control 
variable appears in an external reference as a parameter, it is 
assumed that the value of the control variable is not changed 
in the external reference. 

Example: EQUIVALENCE (J.M) 

DO 100 I = J.K.L 

f /1 - I (modifies J) 

I = i+i (modifies I) 

100 CONTINUE 

170 (DOTERM) - Search for DO Loop index variables used after the DO 

Loop has terminated normally. For many compilers, the DO Loop 
index variable is undefined after the loop terminates under 
normal conditions. All messages appear in the primary listing. 

If the DO Loop Index variable is EQUIVALENCED to a local 
variable which is used after the loop terminated normally, 
then both variable names appear In the message. 
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Program boundaries are not crossed. If the index variable 
appears in a parameter list, it is assumed that the index variable 
is not used as an input parameter. 

171 (DOTCRM) - Same a 170, except that the messages appear in the secondary 
listing. 

The message in the secondary listing contains the following: 

1. The first statement in the module. 

2. The statement containing the beginning of the DO Loop. 

3. The statement containing the end of the DO Loop. 

4. All statements in the path(s) leading from the end of the 
DO Loop to the use of index variable. 

D. The name of the DO Loop index variable. 

6. If th(? DO Loop index variable is EQUIVAL JiCED to a local 
variable vi/hich is used after the loop terminated normally, 
the equivalenced name appears in the secondary listing. 

Example: EQUIVALENCE (J,K) 

I ^ 0 

10 1=1+1 (use I on backward branch) 

DO 100 I = 1,10 
DO 100 0 1,5 

100 CONTINUE 

LENGTH « K (use of 0) 

GO TO 10 


H 




IV. 1.6 


180 (ASNUSE) - Search for local variables assigned values but never used. 
These variables often represent keypunch errors or historical 
legacies. All messages appear in the primary listing. 

Example: SUBROUTINE SLIB(B) 

P = FUNC(B) (P assigned but not used) 

RETURN 

END 


190 (UflINT) - Search for uninitialized local variables. All messages 
appear in the primary listing. 

Program boundaries are not crossed. If the variable appears 
/ in a parameter list, it is assumed that the variable receives a 
value within* that external reference. 

19! (UNINT) - Same as 190, except that the messages appear in the secondary 
listing. 

The message in the secondary listing contains the following; 

1. The first statement in the module. 

t 

2. All the statements in the path(s) leading from the first 
executable statement in the module to the use of the unin- 
itialized variable. 

3. The name of the uninitialized variable. 

Example: SUBROUTINE SUB(A,B ) 

A = B+C (C is unim tialized) 

RETURN 

END 
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400 (CBNENT) - Search for correspond imj COMMON Block declarations which 

do not have the same number of entries. Such constructions arc 
highly error-prone and sone are machine dependent, (see example). 
All messages appear In the primary listing. 

Each message contains: 

1. The name of the COMMON Block, 

2. The number of entries in the COMMON Block. 

3. The name of module the corresponding COMMON Block declaration 
appears in. 

401 (CBNENT) - Same as 400, except that the messages appear in the secondary 

listing and that each message contains, for both the model COMMON 
Block declaration and for the comparison COMMON Block declaration: 

1. The first statement in the module. 

2. The statement containing the f'OMMON Block declaration. 

3. The name of the COMMON Block. 

4. The number of entries there are in the COMMON Block. 

Example: SUBROUTINE SUBl 

C0MI40N A.B,C 
C0MM0N/C0M/X,Y,Z 

SUBROUTINE SUB2 
COMMON D(3) 

COMMON/COM/ X,Y 




IV. 1.8 


410 (CBTYPE) •' Search for corresponding entries in corresponding COMMON 

Block declarations which do not have the same type. Such con- 
structions are highly error-prone. The comparison of two declarations 
halts after the first misnutch is located. 

Each message contains; 

1. The name of the COMMON Block, 

2. The name of the COMMON Block entry, 

3. The entry's type. 

4. The entry number. This indicates where the entry appears in 
the COMMON Block declaration. 

5. The name of the module the corresponding COMMON Block declaration 
appears in. 

411 (CBTYPE) - Same as 410, except that the messages appear in the secondary 

listing and that each message contains, for both tte model COMMON 
Block declaration and for the comparison COMMON Block declaration, 

1. The first statement in the module. 

2. The statement containing the COMMON Block declaration. 

3. The name of the COMMON Block. 

4. The name of the COMMON Block entry. 

5. The entry's type. * 

6. The entry number. This indicates where the entry appears in 
the COMMON Block declaration. 

Example: SUBROUTINE SUBl 
COMMON A,B,C 


SUBROUTINE SUB2 
COMMON A.B,I 


IV. 1.9 


420 (CBDIM) *> Search for corresponding entries in corresponding COMMON 

Block declarations which do not have matching dimension. Such 
constructions are highly error-prone. The comparison of two 
declarations halts after the first mismatch is located. All 
messages appear in the primary listing. 

Each message contains: 

1. The name of the COMMON Block 

2. The name of the COMMON Block entry. 

3. The number of dimensions the entry has, from zero to n. 

4. The entry number. This indicates where the entry appears in 
the COMMON Block declaration. 

5. If the entry is an array, the actual dimensions of the entry. 

6. The name of the module tlie corresponding COMMON Block declara- 
tion appears In. 

421 (CBDIM) - Same as 420, except that the messages appear in the sec- 

ondary listing and that each message contains, for both the model 
COMMON Block declaration and for the comparison COMMON Block 
declaration, 

1. The first statement in the module. 

2. The statement containing the COMMON Block declaration. 

3. The name of the COMMON Block. 

4. The name of the COMMON Block entry. 

5. The number of dimensions the entry has, from zero to n. 

6. The entry number. This indicates where the entry appears In 
the COMMON Block declaration. 

7. If the entry is an array, the actual dimensions of the array. 
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Exflinple; SUtJROUTINtl SUBl 
COMMON A(l), !J(;!) 

COMMON/COM1/C(10),D 

COMMON/COM2/E(2,3) 

SUBROUTINE SUB2 
COMMON A,B 
C0MM0N/C0M1/C(n) 

COMMON/COM2/E(3,2) 

DIMENSION B(2) 

430 (CBOHE) “ Search for COMMON Blocks which appear only once in a 

software system. This often represents a keypunch error or a 

f 

historical legacy. All messages appear in the primary listing, 

440 (CBNAME) - Search for corresponding entries in corresponding COMMON 
Block declarations which do not have the same name. Such con- 
structions are confusing and error-prone. The comparison of the 
declarations halts after the first mismatch Is located. All 
messages appear in the primary listing. 

Each message contains 
The name of the COMfiON Block, 

2. The name of the COMMON Block entry. 

3. The entry number. This indicates where the entry appears in 
the COMMON Block declaration, 

4. The name of the module the corresponding COMMON Block declaration 


appears in. 
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441 {C»NAMi:) - Same as 440» except that the messaties appear in the 

secondary listing and that each message contains* for both the 
model COMf^ON Block declaration and for the comparison COMMON 
Block declaration, 

1. The first statement in the module. 

2 . The statement containing the COMMON Block declaration. 

3. The name of the COMMON Block. 

4. The name of the COMMON Block entry. 

E. The entry number. This indicates where the entry appears in 
the COMMON Block declaration. 

Example: SUBROUTINE SUBl 
COMMON A,B,C 
COMMOIi/COMl/X,Y 

SUBROUTINE SUB2 

COMMON A,C,B (B and C transposeJ) 

C0MM0N/C0M1/X{2) 

450 (CBINDS) - Search for corresponding entries in corresponding COMMON 
Block declarations which do not have the same individual size. 
Such constructions are error-prone. The comparison of two 
declarations halts after the first mismatch is located. All 
messages appear in the primary listing. 

Each message contains: 

1. The name of the COMMON Block. 

2. The name of the COMMON Block entry, 

3. The size of the entry, in computer words. 


1 


I 


t 
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4. The entry number. Thi.i indicates where the entry appears 
in the COMMON Block declaration. 

5. The name of the module the corresponding COMMON Block 
declaration appears in. 

451 (CBINOS) - Same as 450, except that the messages appear in the 

secondary listing and that each message contains, for both the 

I 

model COMMON Block declaration and the comparison COMMON Block 
declaration, 

1. The first statement in the module. 

2. The statement containing the COMN Block declaration. 

3. The name of the COMMON Block, 

4. The name of the COMMON Block entry. 

5. The size of the entry, in computer words. 

6. The entry number. This indicates where the entry appears 
In the COMMON Block declaration. 

Example: SUBROUTINE SUBl 

COMMON A(3),B(3) 

COMMON/COMl/OP 
DOUBLE PRECISION DP 

SUBROUTINE SUB2 
COMMON A(4).B(2) 

COMMON/COMl/DP ^ 

INTEGER DP 

\ 

A 

I 

* i 

;| 


V 
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460 (CBTOTS) - Search for corresponciimi COMMON Block declarations 

which do not have the same total size. Such constructions 
are highly error-prone anii are machine dependent. All messages 
appear in the primary listing. 

Each message contains 

1. The name of the COMMON Block, 

2. The total size of the COMMON Block, in computer words. 

3. The name of the module the corresponding COMMON Block 

declaration appears in. ^ 

461 (CBTOTS) - Same as 460, except that the messages appear in the secondary 

listing and that each message contains, for both the model COMMON 
Block declaration and the comparison COMMON Block declaration, 

1. The first statement in the module. 

2. The statement containing the COtiMON Block declaration, 

3. The name of the COMfiON Block. 

4. The total size of the COMMON Block, in computer words. 

Example:^ SUBROUTINE SUBl 

COMMON A,B,C 
COMMON/COMl/OP 
DOUBLE PRECISION DP 

SUBROUTINE SUB2 

COMMON A,B,C,0 (longer by 1 variable) 

COMMON/COMl/DP (size difference caused by 

storage allocation) 
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500 (PLNENT) - Search for corresponding parameter lists which do not 

have the same number of entries (parameters). Such constructions 
are highly error-prone and are machine dependent. The model for 
comparison is always the fonnal (dummy) parameter list of a sub- 
program. The name of an external reference (a subprogram) is 
considered to be the first entry in its own parameter list. 

All messages appear in the primary listing. 

Each message contains 

1. The number of parameters in the parameter list. 

2. The name of the module which contains the corresponding 
parameter list. 

501 (PLNENT) - Same a 500, except that the messages appear in the secondary 

listing and that each mersege contains, for both the formal para- 
meter list and for the actual parameter list, 

1. The first statement in the module. 

2. The statement containing the parameter list. 

3. The number of parameters in the parameter list. 

Example; CALL SU61 

K = 

SUBROUTINE SUBl(A) 

FUNCTION IX(H) 
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510 (PLTYPE) - Search for corresponding entries (parameters) In cor- 

responding parameter lists v-h1ch do not have the same type. 

Such constructions are highly error-prone. The model for com- 
parison is always tl^e formal (dunmy) parameter list of a sub- 
prog ram . The name of an ext er nal reference (a sub pro graml l^ 
t consider e d to be a parameter . 

All messages appear in the primary listing. 

Each message contain? 

1. The name of the parameter. 

2. The parameter's type. 

3. The parameter number. This indicates where the parameter 
appears In the parameter list. 

4. The name of the module which contains the corresponding 
parameter list. 

511 (PLTYPE) - Same as 510, except that the messages appear in the , 

.secondary listing and that each message contains, for both the 
formal parameter list and for the actual parameter list, 

1, The first statement in the module. 

2, The statement containg the parameter list. 

3, The name of the parameter. 

4^ The parameter’s type, 

5. The parameter number. This Indicates where the parameter 
appears in the parameter 'list. 

Example; Q * FUNC(X.Y,Z} (reference to REAL FUNCTION) 

CALL FUNC(X,Y,Z) (SUBROUTINE reference to a FUNCTION) 

INTEGER FUNCTION FUNC{X,Y,I) (actual parameter for I is REAL) 


i. 


iva.16 

f* 

520 (PLDIM) -Search for corresponding entries (parameters) fn cor- 
responding parameter list: v/h1cii do not have compatible dimensions. 
Such constructions are highly error-prone. The model for com- 
parison Is always the formal (dummy) parameter list of a sub- 
program. The name of an external reference (a subprogram) is 
considered to be the first entry In Its own parameter list. All 
messages appear 1n the primary listing. 

Corresponding parameters do not have compatible dimensions if 

1) The actual parameter is an array and the diinmy parameter is a 

I 

scalar. 

2) Ihe actual parameter Is an eluent of an array and the dummy 
parameter is an entire array, except 

a) when both parameters have the same number of dimensions and 

b) the subscripts of the actual parameter are all ones, e.g., 

CALL SUB(A(1,1),N,M) 

SUBROUTINE SUB(B,N,H) 

DIMENSION B(N,M) 

3) The actual parameter and the dunmy parameter are both arrays* 
but they do not have the same number of dimensions. 

4) The actual parameter and the dummy parameter are both arrays, 
they have the same number of dimensions, but the dimensions 
are not Identical, except 

a) when the dummy array has dummy dimension, e.g., 

DIMENSION A(N) 
or 

b) when the dimensions of the dummy array are all ones, e.g., 

DIMENSION A(l,l) 


IV. 1.17 


Each messaoe contains 

1. The name of the parameter. ' 

2. The number of subscripts the parameter has, from zero to n. 

3. The parameter number. This indicates where the parameter 
appears in the parameter list, 

4. If the parameter is an array, the names of the subscripts. 

5. The name of the module which contains the corresponding, 
parameter list. 

521 (PLDIM) - Same as 520, except that the messages appear in the 

secondary listing and that each message contains, for both the 
formal parameter list and for the actual parameter list, 

1. The first statement in the module. 

2. The statement containing the parameter list. 

3. The name of the parameter. 

4. The number of subscripts the parameter has, from zero to n. 

5. The parameter number. This Indicates where the parameter 
appears in the parameter list. 

6. If the parameter Is an array, the names of the subscripts. 
Example: DIMENSION A(10),B(5),C(10), 0(10,3) 

CALL SUB (A,B(2).C,D) 

SUBROUTINE SUB(X,B,C,D) 

DIMENSION B(5),C(11), 0(3,10) 


600 (CYCALL) - Search for cyclic calling sequences. Such calling 
sequences are illegal. All messages appear in the display 
listing. 

The message contains the names of the routines involved 
in the cyclic calli-.g sequence. No source code statements are 
displayed. 

Example: SUBROUTINE A 
CALL B 

SUBROUTINE B 
CALL C 


SUBROUTINE C 


Query Peculiarities 


130 DATVAR - Flag DATA statements not In BLOCK DATA which contain 
COMMON Block variables. 

If a DATA statcanent refers to a variable which appears 
in an EQUIVALENCE list, then all members of the EQUIVALENCE 
list are examined. 

140 FUNPAR - Flag function dunmy parameters which are assigned 
value within the function itself. 

If a function dummy parameter appears in an EQUIVALENCE 
list, then all members of the EQUIVALENCE list are examined. 

Program boundaries are not crossed. The use of a 
dummy parameter in an actual parameter list is ignored, e.g. , 

FUNCTION FUn (X,Y) 

CALL SUB (X,Z) 

The use of X in the actual parameter list SUB is ignored while 
processing this query. 

160 REDLOP - Flag DO Loop control variables which are assigned values 
within the loop itself. 

If a control variable appears in an EQUIVALENCE list, 
then all members of the EQUIVALENCE list are examined. 

170 i 171 D0TEPJ1 - Flag DO loop index variables which are used after 
the loop has terminated under normal conditions. 
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If a DO loop index variable appears in an HQUIVALENCE 
list, then all inenibers of the EQUIVALENCE list are examined. 
If there exists a path such that a DO loop Index variable 
is used after the path terminated normally, a warning 
message is printed. 

Example 1 : 

5 DO 100 I ^ 1. K 

6 IF (I.GT.3) GO TO 110 

7 100 CONTINUE 

8 no 0=1 

In Query 171, the path(s) leading to a DO loop index variable 
used after the loop terminated normally are printed, well 
as the beginning and end of the DO loop. The above example 
would produce in a secondary report. 

5 DO 100 I = 1, K 

7 100 CONTINUE 

8 no 0 = I 

A certain amount of path tracing is performed for this query. 
If a DO loop index variable or a variable EQUIVALENCED to it 
appears in an actual parameter list outside the DO loop, 
then it is assumed that .the variable is assigned a value by 
that external reference. This assumption is made because 
the query does not cross program boundaries. 



Example 2: 


Example 3: 


DO 100 I « 1. 10 DO 100 I “ 1, 10 

• 

100 CONTINUE 100 CONTINUE 

K = I CALL 5UB(I) 

K = I 

Example 2 receives a \»arning flag. Example 3 does not. 

180 ASNUSE " Flag local variat>les which are assigned values but 
never used. 

If a local variable ^appears in an EQUIVALENCE list, 
then all members of the EQUIVALENCE list are examined. 

This query does not differenctiate between an array 
and an element of the array. If one element of the array is 
used, then it is assuned that every element of the array is 
used. 

190 & 191 UNINT - Flag uninitialized local variables. 

If a local variable appears in an EQUIVALENCE statenent, 
then all members of the EQUIVALENCE list are examined. If 
there exists a path such that a local variable is uninitialized, 
a warning message is printed. 


example 1: 

5 IF (J.Lr..O) GO TO 10 

6 L = 5 

7 K = 1 

8 GO TO 20 

9 10 L = 7 

10 20 0 = K+L 


In Query 191, the path(s) leading to the use of an un- 
initialized variable are printed. The above example would 
produce in a secondary report 


5 IF (J.LE.O) GO TO 10 

9 10 L - 7 

10 20 0 = I'.+L 

I 

This query does not differentiate between an array and 
an element of the array. If one element of the array is 
assigned a value, then it is assumed that every element of 


the array is assigned a value. 


Example 2: 

SUBROUTINE SUB 
DIMENSION A{10) 
B = A(l) 


Example 3: 

SUBROUTINE SUB 
DIMENSION A(10) 
A(2) « 1.1 
B ■ A(l) 


Example 2 receives a warning flag. Example 3 does not. 

While searching for uninitialized variables, a certain 
amount of path tracing Is performed. If a variable or a 


variable EilUIVALENCED to it, appears in an actual parameter 
list, then it -is assumed that the variable Is assigned a value 
by that external reference. This assumption is made because 
the query does not cross program boundaries. 

Example 4: Example 5; 

SUBROUTINE SUB SUBROUTINE SUB 

K = 1 CALL SUBRT(I) 

K = I 


Example 4 receives a v.’arning flag. Example 5 does not. 
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COMMON Block Misalignment; 

The queries dealing with COMMON Block misalignment 
share a number of peculiarities and limitations. 

To begin with, queries which compare individual COMMON 
Block entries do not produce any warning messages if an 
entry in one COMMON Block declaration does not have a 
corresponding entry in another declaration. Tor example, 

SOBROUTINE SUBl SUBROUTINE SUB2 

COMMON/BLOCK/ A,B,C COMMON/BLOCK/ A.B 

No warning messages 'yhich concern type, dimensionality, 
individual entry size, or name mismatch are printed for 
variable C, However, warning messages are produced by those 
queries concerned with the total size of the COMMON Block 
and the number of entries in the COMMON Block. 

Secondly, the COMMON Block misalignment checks use the 
first appearance of a COMMON Block as the model for comparison 
of all occurrences of the COMMON Block. Since modules are 
stored in alphabetical order, a COMMON Block declaration re- 
siding in a module which is at the beginning of the alphabetical 
listing is always used as the model. The primary listing 
contains the name of the module which contains the COMMON Block 
declaration being compared against. 

One limitation is that after the first mismatch in a 
COMMON Block declaration is found by a query, the query halts 
processing on that COMMON Block declaration. For example. 


1 
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SUBROUTINE SUBl SUBROUTINE SUB2 

COMMON/COM/ A,B.C COMMON/COTV I.J.K 

Type mismatch warning messages appear only to A and I, and 
not for B, C, J, or K. 

Another limitation Is that only the statement con- 
taining the first appearance of a given COMMON Block In a 
module Is printed in the secondary listing. For example, 

SUBROUTINE SUB 
COMMON/COM/ A,B.C 
COMMON/COM/ D,E 

In a secondary listing, only 

CCMMON/COM/ A,B,C 

appears. / 

400 S 401 CBNENT - Flag corresponding COMMON Block declarations 
which do not have the same number of entries, 

SUBROUTINE SUBl SUBROUTINE SUB2 

C0MM0N/C0M1/X,Y,Z C0MM0N/C0M1/X,Y 

C0MM0N/C0M2/ A(2) C0MM0N/C0M2/ C.O 

Warning messages are printed for both /COMl/ and /C0M2/ 

410 & 411 CBTYPE - Flag corresponding entries in COMMON Block 
declarations which do not have the same type. 

SUBROUTINE SUBl SUBROUTINE SUB2 

COMMON/COMl/ A.B.C COMHON/COMl/ A.B.I 

Warning messages are printed for C and I in /COMl/ 


/ 
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420 & 421 CBDIM - Flag corresponding entries in COMMON Block 
declarations which do not have Identical dimensions. 

Scalars are defined as having zero dimensions. 

SUBROUTINE SUBl SUBROUTINE SUB2 

COMMON/COMl/ A COMMON/COMl/ A(l) 

C0MM0N/C0M2/ B(2,3) C0MM0N/C0M2/ B(3,2) 

Warning messages are printed for A in /COM!/ and for B 
in /C0M2/ 

440 & 441 CBMAME * Flag corresponding entries In COMMON Block 
declarations which do rot have identical names. 

SUBROUTINE SUBl SUBROUTINE SUB2 

COMMON/COMl/ A,B,C COMMON/COMl/ A,B,X 

COMMON/ C0M2/ D(2) C0MM0N/C0M2/ D.E 

Name mismatch messages are printed for C and X of /COMl/ 
and for D and E of /C0M2/ 

450 & 451 CBINDS - Flag corresponding entries in COMMON Block 

declarations which do not l^ave the same individual size. 

For the following example, assume integers are one word long 
and reals are two words long. 

SUBROUTINE SUBl SUBROUTINE SUB2 

INTEGER B 

COMMON/COMl / A . B . C COMMON/COMl / A. B ,C 

COMMON/COM2/ D(2,3), E(3) C0MM0N/C0M2/ D(3,2), E(2) 

Individual size mismatch warning messages are printed for B 
of /COMl/ and E of /C0M2/ 


FKQCEDING PAGE BLANK NOT YOMSD 
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460 & 461 CBTOTS - Flag ccrresponding COMMON Blocks which do not 
have the same total size. 

SUBROUTINE SUBl SUBROUTINE SUB2 

COMtWCOMl/ A,B,C COMMON/COMl/ A.B.C.D 

COMMON/COM2/ X.Y(2.R) . C0MM0N/C0M2/ q,R,S,T»U 

Warning messages are printed for /COMl/ 
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Parameter List Misalignment: 

The queries dealing with parameter list misalignment 
share a number of peculiarities and limitations, 

To begin with, queries which compare Individual 
parameters do not produce any warning messages if two 
corresponding parameter lists do not have the same number 
of parameters. For example, 

CALL ^UB'(X,Y,Z) 

SUBROUTINE SUB(A,B) 

No warning messages concerning type or dimensionality mismatch 
are printed for Z. However, a warning message is printed by 
the query which compares the number of parameters appearing 
in corresponding parameter lists. 

Secondly, the parameter list misalignment checks use 
formal (dummy) parameter lists as the models for comparison. 

Thirdly, the name of the parameter list Is processed as 
the 0^*^ parameter in the parameter list. For example, in 

FUNCTION FUN(X.Y) 

FUN is the 0^^ parameter, X the and Y the 2*^^. 

Finally, all parameters in a parameter list are examined. 
If a parameter is a subexpression, then the parameter is 
assumed to have the name *SUBEXPR. 


IV. 2. 12 


500 & 501 PLNENT - Flsif) corretiponding pt^^amete^ lists which do 
not have the same number of parameters. 

CALL SUB! CAL SUB2 (X+Y) 

SUBROUTINE SUBl(K) SUBROUTINE SUB2(Z) 

Warning messages are printed for SUBl. 

510 & 511 FLTYPE - Flag corresponding parameters which do not have 
the same type. 

IMPLICIT REAL (A-Z) 

K = FUN (X.Y) 

INTEGER FUNCTION FUN (X»Y) 

INTEGER Y 

Warning messages are printed for parameters FUN and Y. 

520 & 521 PLDIM - Flag corresponding parameters which do not have 
compatible dimensions. See Queries for a more detailed 
discussion. 
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FUq File (Sort File) Format 


Global 
Number Key 

1 Statement 

I Location Fields 

Source Code! First Card Last Card 
Index Key |Key Key 

j 

Violation 
Flag Fields 

Integer Alphanumeric 

Key Key 

L_ 






1 

1 

( 

1 

1 

' 

1 

2 

3a 

3b 

4a 

4b 


Number of 

Internal 

1 Data Fields 

i 

1 

) 

1 


Occurrence 

Key 

Ordering 



1 Integer 

■f 

Alphanumeric! 
^ 1 


1 

I 

(_ 

5 6 7a 7b 


There are seven sort fields and three data fields. All are integer 
fields, except the alphanumeric Flag Field and the alphanumeric Data 
Field. Any field, alphanumeric or integer, which does not contain any 
information contains a zero. The output format is 

FORMAT{5(2X,I5), 2X, 2A4, 3{2X,I5), 2X. 2A4) 


1. Global Number Key - This sort key specifies whether the violation 
is to appear in the primary listing or in the secondary or display 
listings. A one in this key indicates that the violation is to 
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/ 


appear in the primary listing. An Integer >1 indicates that 
the violation is to appear in the secondary or display listing. 

2. Source Code Index Key - This sort key specifies the location of 
the beginning of the source code for the module in which the 
violation occurs. If the violation does not occur in a specific 
module* as in cyclic calls, then this key is zero. 

3. Statement Location Fields - This area consists of two sort fields, 
the First Card ivey and the Last Card Key. 

a. First Card Key - This sort key specifies the first card of the 
statement in which the violation occurs. If the violation does 
not occur in a specific card, as in cyclic calls, then this key 
contains a zero. 

b. Last Card Key - This sort key specifies the last card of the 
statement in which the violation occurs. If the violation does 
net occur in a specific card, as in cyclic calls, then this key 
contains a zero. 

4. Violation Flag Fields - This area consists of two fields, an 
integer sort field and an a^hanumeric non- sort field. 

a. Integer Violation Flag Key - This sort key specifies which 
violation has occurred. Each type of violation has its own 
integer code. If a violation is to appear within the primary 
listing or the secondary listing, this key specifies which. 
Alphanumeric Violation Code - This field contains .the alpha- 
numeric name of the violation. 


b. 
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5, Number of Occurrence Key ► This sort key keeps track of the 
order In which violations of the same class occurred. 

If the query searches for local violations, then this sort 
key is set to zero each time a different module is examined, and 
Incremented each time a violation occurs. 

If the query searches for global violations not Involving 
path tracing (Parameter List A'igrjnent and COMMON Block Alignment), 
then this sort key is set to zero when the query is invoked, and 
incremented each time a violation occurs. 

If the query searches for global violations using path 
tracing (Cyclic Call Search), this sort key is set to zero each time 
the query starts at a new path beginning. 

6, Internal Ordering Key - This sort key specifies the internal 
ordering of the data concerning a violation. Since a violation may 
involve a great deal of information to be passed on to the user, 
this information must be placed in some order. For example, in a 
dimensional mismatch, the violation Information would include (in 
the Data Fields) the name of the variable in violation, how many 
dimensions it has, and what those dimensions are. These pieces of 
data must retain their proper order for the output to be intelligible. 

7, Data Fields - This area consists of two fields, an integer data 
field and an alphanumeric data field. 

a. Integer Data Field - This field contains Integer data that des- 
cribes or pinpoints the violation, such as the size of a COMMON 
Block. 
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b. Alphanumeric Data Field - This field contains alphanumeric data 
‘ that describes or pinpoints the violation* such as the name of 

a variable. 
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Flag File Peculia rities 

1. Unless otherwise noted, all warning messages appear In the primary 
listing. 

2. Unless otherwise noted, all warning messages are directly attached 
to the FORTRAN statements the messages reference. 

3. In the Global Number column, N is assigned values during execution 
such that N>1. For a further discussion on the contents of this 
column, see the discussion on the Global Number COMMON Block, /GLO/. 

4. In the Internal Ordering column, there are entries of the form 

'(0) 1'. This refers to the problem of variables being equivalenced 

to other names. If the variable Is not equivalenced to another name, 
or if the equivalenced name is not part of the violation, then the 
internal ordering column contains a zero and no equivalenced name 
appears in the flag file. On the other hand, if a variable and name 
equivalenced to it are part of a violation, then the Internal ordering 
column will contain a and '2' respectively. 

5. In the Integer column of the DATA field, 

XU 

a. 'entry number' indicates that a variable is the n " COMMON Block 
variable in a COMMON Block declaration. 

b. 'parameter number' indicates that a parameter is the parameter 
in a parameter list. 

6. In dimensionality misalignment searches, a variable may have anywh e 

from zero to n dimensions. ^ 

7. For Parameter List Alignment, the model parameter list is always the 
formal (dummy) parameter list, while the comparison parameter list is 
always the actual parameter list. 






8. In the Flag Integer rolumn, a *V Indicates that a statement 
Is to be printed by the Report Generator, but that no message 1 
to be printed with It. 
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FORTRAN FRONT END FLAGS 
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Global ' 
Number 

Integer 
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Alpha- ^Internal 
numeric 'Ordering 

Statement not processed 
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NO PROC 
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Unrecognized Statement 
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013 

UNRECOG 
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Statement Truncated - 
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022 

j 

STM TRUC 
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N 

Statement Aborted 

1 

023 

SABORT 
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/■ 





Branch List Truncated 

1 

042 

BR TRUC 

0 

Node Table Overflow 

1 

1 

.043 

NOD FULL 

0 

Predecessor Table Overflow 

1 

044 

PRE FULL 

0 


Integer 


DATA 


Comments 


Alpha- 

numeric 


Not used in processing 


Statement not in FFE 
processing set 


Display of 
form at trun 
cation point 


Statement process 
terminated before 
statement completed 


1 


3 4 


Display of 
form at stop 
position 


Statement process 
halted tor syntax 
problem 


Branch list of 
statement truncated 
due to overload 


Node Table full. 

No more statements 
added to tables for 
module 


No predecessors added 
to statements urtiich 
follow 
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FORTRAN FRONT END FLAGS 

Global ' Alpha- 'internal j Alpha- 

Number 1 Integer numeric .Ordering * Integer numeric 

Comments 

Successor Table Overflow 
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No successors for nodes 
that follow 

Use Table Overflow 

' 1 

046 

USE FULL 
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Uses for statements 
which follow not 
recorded 

Symbol Table Overflow 

1 
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NO SYM 
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Symbol 
(8 chars.) 

Symbol not added to 
symbol table 

Symbol Truncated 

1 
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SYM TRUC 

1 

2 

« 

• 
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Symbol string 
of truncated 
form 

Truncated form used 
internally 

Header Card not Found 

1 
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NO HEAD 

0 



Header card not found 
after last module end 

End Statement Missing 

1 

063 

NO END 

0 
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No end card on module 

Unrecognized Symbol 

1 

082 

SYM UREC 

0 


Symbol 

Unknown character or 
context of use 

Undefined Statement Label 

t 

1 

083 

NO DEFN 
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Label 

Branch label 

Parenthesis too Deep 

1 

084 

PARENS 
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Parenthesis too deep 
in nested v ( ) forms 
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Number J 

Integer 
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numeric ^Ordering 

Unable to Locate Desired 
Symbol 
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MISSING 
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Unknown Form 
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FORM 
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Card Exhausted while Trying 
to Complete an Element 
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TOO SOON 
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Integer 
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numeric 


Symbol 


Comments 


Looking for symbol but 
cannot find 
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unfcnovm form 


This form of con- 
struction not 
recognized 


Hollerith constants 














Query 

1 FLAG 1 
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Global ' Alpha- 1 Internal 

Number ‘Integer numeric i Ordering 
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Search for ANSI Standards 
Function Names used not as 
ANSI Standards Functions 
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I 

no 
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ANSI ST 
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Search for FORTRAN 
Reserved Words used as 
names 

1 
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RESWRD 

0 

Search for DATA statements 
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variables not in BLOCK DATA 
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DATVAR 
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1 
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DATVAR 
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parameters assigned value 
within the function itself 
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FUNPAR 
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assigned values but never used 


1 


180 


ASNUSE 


! 


J 

1 


DATA 






































Search for uninitialized 
local variable 


IWarning messages to appear 
in secondary listing 













DATA 


j 

I 


Alpha- 

Integer numeric Comments 



Name of 1^^ statement 

variable in path 
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Determine If corresponding 
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have the same number of 
entries 
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entries 
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1 COMMON Block declarations 
i have the same type 
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CBTYPE 
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CBTYPE 
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CBTYPE 
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Warning messages to appear 
1 in secondary listing 

N 

1 

CBTYPE 
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CBTYPE 
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CBTYPE 
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CBTYPE 
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have matching dimensions 
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Global 

Number 

N 


Query 

(continued from preceding 
page) 


N 


N 


N 


N 


Determine if a COMMON 

Block appears in only one 1 

module 


FLAG I 1 DATA 

I > 


\ • 

Alpha- , Internal ' 

Integer numeric .Ordering ; Integer 


1 

CBDIM 

n-»*4 

2 

(comparison 




indicator) 


Alpha- 

numeric 


Comments 

st 

1 statement in 
comparison module 


421 


CBDIM 


n+5 


Number of 
[dimensions 


[Name of 
COMMON Block 




















t 


FLAG 


Query 


Determine if corresponding 
entries in corresponding 
COMMON Block declarations 
have Identical names 


Warning messages to appear 
in primary listing 


Warning messages to appear 
in secondary listing 


I 

Global • 

Number ] Integer 


I 

AV a- |im 
numeric ,Cn 




- 

1 

440 

CBNAME 

1 

440 

CBNAME 

1 

440 

CBNAME 

- N 

1 

CBNAME 

N 

441 

CBNAME 

N 

441 

CBNAME 

N 

1 

CBNAME 

N 

441 

CBNAME 





441 


C8NAME 


















































FLAG 


I 


Query 

• 1 
Global ‘ Alpha- ^nte 

Number , Integer numeric lOrde 

Determine if corresponding 
entries in corresponding 
COMMON Block declarations 
have the same Individual size 


L 



Warning messages to appear 
in primary listing 

1 

m 

CBINDS 


1 

450 

CBINDS 

I 

1 

450 

CBINDS 


Warning messages to appear 
secondary listing 

j 

! 

N 

1 : 

CBINDS 


N 

451, 

i 

CBINDS 

- 

N 

451 

CBINDS 


N 

1 

CBINDS 


N 

451 

CBINDS 


N 

451 

CBINDS j 



DATA 



















































FLAG 


Query 

1 ; 

Global ' Alpha- jinternal 

Number \ Integer numeric .Ordering 

Determine if corresponding 
COMMON Blocks have the same 
total size 





Warning messages to appear 
in primary listing 

1 

460 

CBTOTS 

1 

1 

460 

CBTOTS 

2 

Warning messages to appear 
in secondary listing 

* 

N 

1 

CBTOTS 

1 

N 

461 

CBTOTS 

2 

N 

461 

CBTOTS 

3 

N 

1 

CBTOTS 

4 

N 

461 

CBTOTS 

5 






N 


461 


CBTOTS 


6 


DATA 

Alpha- 

Integer numeric Comments 







































Query 

1 FtAG 1 

' 1 
Global ' Alpha- 

Number J Integer numeric jc 

Determine if corresponding 
parameter lists have the 
same number of parameters 




Warning messages to appear in 
primary listing 

1 

500 

PLNENT 


1 

500 

PLNENT 

Warning messages to appear 
in secondary listing 

N . 



N 

501 

PLNENT 


N 

501 

PLNENT 

N 

1 

PLNENT 

N 

501 

PLNENT 


N 


501 


PLNENT 

































Query 

)etermine if corresponding 
parameters in corresponding 
parameter "tists have the 
same type 


f raming messages to appear 
in primary listing 


Warning messages to appear 
in secondary listing 


I I FLAG 


Global ' 
Number \ 

Integer 

Alpha- 
numeric ^ 




1 

510 

PLTYPE 

1 

510 

PLTYFE 

1 

510 

PLTYPE 

N 

1 

PLTYPE 

N 

511 

PLTYPE 

N 

511 

PLTYPE 

N 

1 

PLTYPE 

N 

511 

PLTYPE 

N 

511 

PLTYPE 
1 


nternal j 
rdering ; 






Parameter ’ s 
type 


Parameter 

Number 





Name of 
parameter 
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type 


Parameter 

number 
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Name of 
parameter 
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comparison module 
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number 
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VI. 1 





Global Header 
Global Tables 


Local Header 
Local Table Data 


Table File 


VI. 2 


Global Table Allocation 


Associated Starting 

Common Block Record 


/GHD/ 

/DIR/ 

/SH/ 

/SHD/ 

/IS/ 

/ISD/ 

/COM/ 

/IIW 


GLOBAL 


HEADER 



MODULE 

DIRECTORY 


SYSTEM 

HIERARCHY 

TABLE 


SYSTEM 
HIERARCHY TO 
DIRECTORY 
TABLE 


INVERSE 

SYSTEM 

HIERARCHY 

TABLE 
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SYSTEM 
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DIRECTORY 
TABLE 
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BLOCK 

NAME 

TABLE 
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Local Table File Structure 


VI. 3 


for a Module 


Associated Starting 

Conunon Block Record Number 


/MHO/ 

/SYM/ SYMTAB 
/SYM/ SYMOVR 
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/USE/ 

/NOD/ 

/sue/ 

/PRE/ 


LOCAL 

HEADER 


MAIN 

SYMBOL 

TABLE 


SYMBOL 

OVERFLOW 

TABLE 


USE 

TABLE 


NODE 
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N 
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N+28 

N+30 

N+70 
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Length 
in VIords 

6 

2800 

200 

4000 

2800 

1000 

1000 


where N determined from module number 
entry of the Directory. 



